home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / tests / breakpoints.dia.ref < prev    next >
Text File  |  1999-09-16  |  4KB  |  273 lines
  1.  
  2. mode(-1)
  3. //
  4. // (setbpt delbpt).
  5. deff('[]=lig()',[
  6. 'shlig(2),';
  7. 'if 1>2 then,';
  8. '  shlig(4),';
  9. ',';
  10. '  shlig(6)     ,'; // break-point
  11. ',';
  12. 'end,shlig(8)   ,'; // break-point
  13. 'shlig(9),';
  14. 'for k=1:3,';
  15. '  k;shlig(11)  ,'; // break-point
  16. 'end,shlig(12)  ,'; // break-point
  17. ',';
  18. 'for l=1:10,';
  19. '  if l=5 then break,end,';
  20. '  l,';
  21. 'end,shlig(17)  ,'; // break-point
  22. 'shlig(18),';
  23. 'select 2,';
  24. 'case 1 then,';
  25. ',';
  26. 'case 2 then,';
  27. '  shlig(23)   ,'; // break-point
  28. 'case 3 then,';
  29. '1,';
  30. 'else,';
  31. '2,';
  32. 'end,shlig(28) ,'; // break-point
  33. 'shlig(29),';
  34. 'select 0,';
  35. 'case 1 then,';
  36. '1,';
  37. 'case 2 then,';
  38. '2,';
  39. 'case 3 then,';
  40. '3,';
  41. 'else,';
  42. '  shlig(38)  ,'; // break-point
  43. 'end,shlig(39),'; // break-point
  44. 'shlig(40)    ,'; // break-point
  45. 'i=0,';
  46. 'while i<3,';
  47. 'i=i+1,shlig(43) ,'; // break-point
  48. 'end,shlig(44) ,'; //break-point
  49. 'i=0;,';
  50. 'while i<10,';
  51. 'i=i+1,if i=2 then break,end,shlig(47),';
  52. 'end,shlig(48) ,' //break-point
  53. ])
  54. deff('[]=shlig(n)','write(%io(2),''ligne ''+string(n))')
  55. //definition des points d'arrets
  56. setbpt('lig',6)
  57. setbpt('lig',8)
  58. setbpt('lig',11)
  59. setbpt('lig',12)
  60. setbpt('lig',17)
  61. setbpt('lig',23)
  62. setbpt('lig',28)
  63. setbpt('lig',38)
  64. setbpt('lig',39)
  65. setbpt('lig',40)
  66. setbpt('lig',43)
  67. setbpt('lig',44)
  68. setbpt('lig',48)
  69. write(%io(2),[
  70. 'user should check the line number'])
  71. user should check the line number
  72. write(%io(2),[' ';'MACRO NOT COMPILED';'-----------------';' '])
  73.  
  74. MACRO NOT COMPILED
  75. -----------------
  76.  
  77. lig()
  78. ligne 2
  79. ligne 8
  80. Stop after row     8 in function lig :
  81.  
  82. end,shlig(8)   ,
  83.  
  84. resume
  85. ligne 9
  86. ligne 11
  87. Stop after row    11 in function lig :
  88.  
  89.   k;shlig(11)  ,
  90.  
  91. resume
  92. ligne 11
  93. Stop after row    11 in function lig :
  94.  
  95.   k;shlig(11)  ,
  96.  
  97. resume
  98. ligne 11
  99. Stop after row    11 in function lig :
  100.  
  101.   k;shlig(11)  ,
  102.  
  103. resume
  104. ligne 12
  105. Stop after row    12 in function lig :
  106.  
  107. end,shlig(12)  ,
  108.  
  109. resume
  110. ligne 17
  111. Stop after row    17 in function lig :
  112.  
  113. end,shlig(17)  ,
  114.  
  115. resume
  116. ligne 18
  117. ligne 23
  118. Stop after row    23 in function lig :
  119.  
  120.   shlig(23)   ,
  121.  
  122. resume
  123. ligne 28
  124. Stop after row    28 in function lig :
  125.  
  126. end,shlig(28) ,
  127.  
  128. resume
  129. ligne 29
  130. ligne 38
  131. Stop after row    38 in function lig :
  132.  
  133.   shlig(38)  ,
  134.  
  135. resume
  136. ligne 39
  137. Stop after row    39 in function lig :
  138.  
  139. end,shlig(39),
  140.  
  141. resume
  142. ligne 40
  143. Stop after row    40 in function lig :
  144.  
  145. shlig(40)    ,
  146.  
  147. resume
  148. ligne 43
  149. Stop after row    43 in function lig :
  150.  
  151. i=i+1,shlig(43) ,
  152.  
  153. resume
  154. ligne 43
  155. Stop after row    43 in function lig :
  156.  
  157. i=i+1,shlig(43) ,
  158.  
  159. resume
  160. ligne 43
  161. Stop after row    43 in function lig :
  162.  
  163. i=i+1,shlig(43) ,
  164.  
  165. resume
  166. ligne 44
  167. Stop after row    44 in function lig :
  168.  
  169. end,shlig(44) ,
  170.  
  171. resume
  172. ligne 47
  173. ligne 48
  174. Stop after row    48 in function lig :
  175.  
  176. end,shlig(48) ,
  177.  
  178. resume
  179. comp(lig)
  180. write(%io(2),[' ';'COMPILED MACRO';'-----------------';' '])
  181.  
  182. COMPILED MACRO
  183. -----------------
  184.  
  185. lig()
  186. ligne 2
  187. ligne 8
  188. Stop after row     8 in function lig :
  189.  
  190.  
  191. resume
  192. ligne 9
  193. ligne 11
  194. Stop after row    11 in function lig :
  195.  
  196.  
  197. resume
  198. ligne 11
  199. Stop after row    11 in function lig :
  200.  
  201.  
  202. resume
  203. ligne 11
  204. Stop after row    11 in function lig :
  205.  
  206.  
  207. resume
  208. ligne 12
  209. Stop after row    12 in function lig :
  210.  
  211.  
  212. resume
  213. ligne 17
  214. Stop after row    17 in function lig :
  215.  
  216.  
  217. resume
  218. ligne 18
  219. ligne 23
  220. Stop after row    23 in function lig :
  221.  
  222.  
  223. resume
  224. ligne 28
  225. Stop after row    28 in function lig :
  226.  
  227.  
  228. resume
  229. ligne 29
  230. ligne 38
  231. Stop after row    38 in function lig :
  232.  
  233.  
  234. resume
  235. ligne 39
  236. Stop after row    39 in function lig :
  237.  
  238.  
  239. resume
  240. ligne 40
  241. Stop after row    40 in function lig :
  242.  
  243.  
  244. resume
  245. ligne 43
  246. Stop after row    43 in function lig :
  247.  
  248.  
  249. resume
  250. ligne 43
  251. Stop after row    43 in function lig :
  252.  
  253.  
  254. resume
  255. ligne 43
  256. Stop after row    43 in function lig :
  257.  
  258.  
  259. resume
  260. ligne 44
  261. Stop after row    44 in function lig :
  262.  
  263.  
  264. resume
  265. ligne 47
  266. ligne 48
  267. Stop after row    48 in function lig :
  268.  
  269.  
  270. resume
  271. delbpt('lig')
  272. clear lig shlig
  273.